From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 May 1993 03:14:39 +0000 (+0000)
Subject: (command-line): Call frame-initialize explicitly.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96299
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c722566c7ca757012799bd9ee4dfcd932f716698;p=emacs.git

(command-line): Call frame-initialize explicitly.
Call face-initialize.
(normal-top-level): Call frame-notice-user-settings explicitly.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index da88df9e8e1..10777d018e1 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -147,6 +147,7 @@ directory name of the directory where the `.emacs' file was looked for.")
       (run-hooks 'emacs-startup-hook)
       (and term-setup-hook
 	   (run-hooks 'term-setup-hook))
+      (frame-notice-user-settings)
       (and window-setup-hook
 	   (run-hooks 'window-setup-hook)))))
 
@@ -212,6 +213,11 @@ directory name of the directory where the `.emacs' file was looked for.")
     ;; Re-attach the program name to the front of the arg list.
     (setcdr command-line-args args))
 
+  ;; Under X Windows, this creates the X frame and deletes the terminal frame.
+  (frame-initialize)
+
+  (face-initialize)
+
   (run-hooks 'before-init-hook)
 
   ;; Run the site-start library if it exists.  The point of this file is